﻿Namespace Validation
    Public Class IsNotNullValidationRule
        Inherits ValidationRule

        Public Sub New()
            Me.ValidationStep = System.Windows.Controls.ValidationStep.ConvertedProposedValue
            Me.Message = "Must not be Null"
        End Sub

        Protected Overrides Function ValidateCore(ByVal value As Object, ByVal cultureInfo As System.Globalization.CultureInfo) As Boolean
            Return (value IsNot Nothing)
        End Function
    End Class
End Namespace
